oo::class create Notifier {
    superclass Plugin
    variable RenamedPadWidget Monitors Language

    constructor {renamedPadWidget monitors lang} {
	set RenamedPadWidget $renamedPadWidget
	foreach m $monitors {
	    lappend Monitors $m
	}
	set Language $lang
    }

    method updateMonitor {args} {
	foreach m $Monitors {
	    $m update $RenamedPadWidget $Language
	}
    }
    
    method getPluginEvents {} {
	return {
	    {afterInsert updateMonitor}
	    {afterDelete updateMonitor}
	    {afterReplace updateMonitor}
	    {afterMarkSetInsert updateMonitor}
	}
    }
}